home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / CPP / WCLASS95.ZIP / PASCAL1.SCT < prev    next >
Encoding:
Text File  |  1995-07-26  |  3.6 KB  |  98 lines
  1. NO_OUTPUT_BEGIN
  2. For Borland Object Pascal
  3. (1) In With Class enter the unit name in the class specification dialog box "File Name" field.  The file name
  4. becomes the unit file name and the unit name, e.g. file name = CarUnit.pas.
  5. (2) For uses clause, enter the unit name in the Include Box.  Enter the last unit followed by a ; e.g. UnitZ;
  6. Ensure that the unit names entered in the Include Box are consistent with the unit names entered in the
  7. -CLASS_FILENAME Box.
  8. (3) On the class diagram, insert parameters in the C++ form, e.g. Parameter_Type Parameter_Name - Integer
  9. aNumber.  The script variable PASCAL_OPERATION_PARAMETERS_WITH_VAR then puts the parameter
  10. into the Pascal form, e.g. (Parameter_Name : Parameter_Type ; Var A_Parameter_Type : Parameter_Type) -
  11. (A_Number : Integer ; Var A_Integer : Integer).
  12. NO_OUTPUT_END
  13.  
  14. unit CLASS_FILENAME;
  15.  
  16. interface
  17.  
  18. [NO_RETURN NO_REPEAT uses INCLUDE_FILE ,DELETE_LAST_SYMBOL]
  19.  
  20. type
  21. CLASS_NAME = object [(BASE_CLASS)]
  22.  
  23. [ ATTRIBUTE_NAME : ATTRIBUTE_TYPE ; ]
  24. [ ASSOCIATION_ONE_NAME : ASSOCIATION_ONE_CLASS ; ]
  25. [ AGGREGATION_ONE_NAME : AGGREGATION_ONE_CLASS ; ]
  26. [ ASSOCIATION_MANY_NAME : array LITERAL_SYMBOL[1..10 LITERAL_SYMBOL] of ASSOCIATION_MANY_CLASS ; ]
  27. [ AGGREGATION_MANY_NAME : array LITERAL_SYMBOL[1..10 LITERAL_SYMBOL] of AGGREGATION_MANY_CLASS ; ]
  28.  
  29.             {Update to initialize ancestor fields.}
  30.   constructor DefaultInit;
  31.  
  32.             {Update to initialize ancestor fields.}
  33.   constructor Init ( [a$ATTRIBUTE_NAME : ATTRIBUTE_TYPE DELETE_LAST_SYMBOL;] NO_RETURN);
  34.  
  35.   constructor Copy (var A_$CLASS_NAME : CLASS_NAME );
  36.  
  37.   destructor Done; virtual;
  38.  
  39. [ 
  40.   function Get$ATTRIBUTE_NAME : ATTRIBUTE_TYPE; {Accessor Get Function }]
  41.  
  42. [  
  43.   procedure Set$ATTRIBUTE_NAME ( a$ATTRIBUTE_NAME : ATTRIBUTE_TYPE ); {Accessor Set Procedure }]
  44.  
  45. [                       { create function with return if required. }
  46.   procedure OPERATION_NAME PASCAL_OPERATION_PARAMETERS_WITH_VAR ; PASCAL_OPERATION_VIRTUAL  
  47. ]
  48. end;
  49.  
  50. implementation
  51.  
  52. {-----------------------------------------------------------------------------------------------}
  53.             {Update to initialize ancestor fields.}
  54. constructor CLASS_NAME$.DefaultInit;
  55. begin
  56.   [ATTRIBUTE_NAME := ATTRIBUTE_INITIAL_VALUE; ]
  57. end; 
  58.  
  59. {-----------------------------------------------------------------------------------------------}
  60.             {Update to initialize ancestor fields.}
  61. constructor CLASS_NAME$.Init ( [a$ATTRIBUTE_NAME : ATTRIBUTE_TYPE  DELETE_LAST_SYMBOL;] NO_RETURN);
  62. begin
  63.   [ATTRIBUTE_NAME := a$ATTRIBUTE_NAME;]
  64. end;
  65.  
  66. {-----------------------------------------------------------------------------------------------}
  67. constructor CLASS_NAME$.Copy (var A_$CLASS_NAME : CLASS_NAME );
  68. begin
  69.   Self := A_$CLASS_NAME;
  70. end;
  71. {-----------------------------------------------------------------------------------------------}
  72.             {Update as required.}
  73. destructor CLASS_NAME$.Done;
  74. begin
  75. end;
  76.  
  77. [{-----------------------------------------------------------------------------------------------}
  78.             {Accessor Get Function }
  79. function CLASS_NAME.Get$ATTRIBUTE_NAME : ATTRIBUTE_TYPE;
  80. begin
  81.   Get$ATTRIBUTE_NAME := ATTRIBUTE_NAME;
  82. end;
  83. ]
  84. [{-----------------------------------------------------------------------------------------------}
  85.             {Accessor Set Procedure }
  86. procedure CLASS_NAME.Set$ATTRIBUTE_NAME ( a$ATTRIBUTE_NAME : ATTRIBUTE_TYPE ); 
  87. begin
  88.   ATTRIBUTE_NAME := a$ATTRIBUTE_NAME;
  89. end; 
  90. ]  
  91. [{-----------------------------------------------------------------------------------------------}
  92.             { create function with return if required.}
  93. procedure CLASS_NAME.OPERATION_NAME PASCAL_OPERATION_PARAMETERS_WITH_VAR ; 
  94. begin
  95. end;    
  96. ]
  97. end.
  98.